home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / irc / GetMODinfo.lha / MODinfo.REXX < prev   
OS/2 REXX Batch file  |  1999-02-16  |  2KB  |  75 lines
  1. /*      AmIRC MODinfo AREXX script by CoBaLt60     */
  2. /*      Cosmetic changes and docs by Firebird^     */
  3. /* Get some info from DelitrackerII or HippoPlayer */
  4. /*   This script goes in your SYS:REXX directory.  */
  5.  
  6. parse arg moreinfo   /* ANY argument given will make the script output more info */
  7. options results
  8.  
  9. if show('Ports','HIPPOPLAYER') then do
  10.  
  11.   /* get info from Hippoplayer */
  12.  
  13.   address 'HIPPOPLAYER'
  14.  
  15.   get name; modname = result
  16.   get type; modtype = result
  17.   get size; modsize = result
  18.   get comm; comment = result
  19.   get curr; current = result
  20.   get cfil; filenum = result
  21.   get nfil; numoffiles = result
  22.   get cspo; pos = result
  23.   get mspo; maxpos = result
  24.   get dura; duration = result
  25.   get fnam; fullname = result
  26.   get cnam; filename = result
  27.  
  28.   if moreinfo='' then
  29.     say '"'modname'" (Type: 'modtype" Size: "modsize" Time: "duration%60"m "duration-60*(duration%60)"s)" comment
  30.  
  31.   else do
  32.     say "Mod #"current" ("filenum"/"numoffiles")  "modname"  ("modtype"  Size: "modsize " Time: "duration%60"m"duration-60*(duration%60)"s)  Pos: "pos"/"maxpos
  33.     if filename == fullname then
  34.        say fullname
  35.     else
  36.        say fullname filename
  37.     say comment
  38.   end
  39.  
  40. end
  41.  
  42. if show('Ports','DELITRACKER') then do
  43.  
  44.   /* get info from Delitracker */
  45.  
  46.   address 'DELITRACKER'
  47.  
  48.   status g lst; modlist = result
  49.   status g vol; volume = result
  50.   status g rmo; randmod = result
  51.   status g gui; guiopen = result
  52.   status g ply; playing = result
  53.   status g led; filter = result
  54.   status m dir; moddir = result
  55.   status m fil; filename = result
  56.   status m fmt; format = result
  57.   status m nam; modname = result
  58.   status m max; nummods = result
  59.   status m num; modnum = result
  60.  
  61.   if moreinfo='' then
  62.     say ""modname"  ("format")"
  63.  
  64.   else do
  65.     say; say "Mod #"modnum"/"nummods"  "modname"  ("format")";
  66.     address command 'list 'moddir''filename' lformat "%p%n  %l  %d"'
  67.     address command 'list 'moddir''filename' lformat "%c"';say
  68.  
  69.     say "random:"randmod " GUI open:"guiopen " playing:"playing " filter:"filter " volume:"volume;
  70.     say "program is" modlist; say
  71.   end
  72.  
  73. end
  74.  
  75.